﻿Imports StartFrame.BR.Web.Utilitarios

Partial Public Class Abm_Pruebas
    Inherits System.Web.UI.Page

    Public masterpage As AbmBase

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        'Campos de filtado (si esta vacio los incluye a todos)
        Dim cf As String = "cd_prueba, nu_prueba, nm_prueba, nm_programa"
        'Columnas de la grilla (si esta vacio las incluye a todas)
        Dim cg As String = "cd_prueba, fe_prueba, nu_prueba, nm_programa, nm_prueba"
        'Columnas del formulario de alta/modificacion (si esta vacio los incluye a todos)
        Dim ce As String = "cd_prueba, fe_prueba, nu_prueba, nm_prueba, nm_programa"
        Dim tp As Integer = 0


        'Alias de columnas (si esta vacio pone los nombres de los campos)
        Dim ac As New Hashtable
        ac.Add("cd_prueba", "Código")
        ac.Add("fe_prueba", "Fecha")
        ac.Add("nu_prueba", "Nº Prueba")
        ac.Add("nm_prueba", "Detalle")
        ac.Add("nm_programa", "Funcionalidad")

        'Instancia de la clase masterpage AbmBase
        masterpage = CType(Page.Master, AbmBase)       

        'Asigna los atributos del AbmBase
        masterpage.lblTitulo = "Registro de Pruebas Realizadas"
        masterpage.FiltrosBusqueda = cf
        masterpage.ColumnasGrilla = cg
        masterpage.CamposEdicion = ce
        masterpage.AliasCampos = ac
        masterpage.TabsAdicionales = tp

        'Instancia del objeto de reglas del negocio
        Dim obr As New BR.Web.Utilitarios.Abms.Pruebas
        'Inicialización de la página Abmbase enlazada al objeto de negocios
        masterpage.InicializarPagina(obr)
    End Sub

    Protected Overloads Sub OnPreInit() Handles Me.PreInit
        'Aplicacion de Tema
        If Not Session("Tema") Is Nothing Then
            Page.Theme = Session("Tema").ToString
        End If
    End Sub

End Class